Set exit-function to

exit-japanese-environment for Japanese environment.

diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index fc248938d66145f503865365bea63355de581847..77285fdc2d8fc21e73881f48ad4ecd00987fa16b 100644 (file)
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -78,6 +78,7 @@
 
 (set-language-info-alist
  "Japanese" '((setup-function . setup-japanese-environment)
+             (exit-function . exit-japanese-environment)
              (tutorial . "TUTORIAL.jp")
              (charset japanese-jisx0208 japanese-jisx0208-1978
                       japanese-jisx0212 latin-jisx0201 katakana-jisx0201)